home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / tcp / acuseeme1_50.lha / ACUSeeMe / ACUSeeMe Install next >
Text File  |  1995-06-05  |  3KB  |  93 lines
  1. ; CUSeeMe Installer © 1995 Robert Reiswig (rcr@netcom.com)
  2. ;
  3. ; Version 1.0 June 4, 1995
  4. ;  - Original version. Thank you very much Robert.
  5. ;
  6. ; Version 1.1 June 4, 1995
  7. ;  - Installer now creates a destination directory called "ACUSeeMe" in
  8. ;    the directory that the user chooses
  9. ;  - Changed the variable name "CUDir" to "InstallDir"
  10. ;  - Changed ACUSeeMeVer to "1.50"
  11. ;  - Minor cosmetic changes
  12.  
  13.  
  14. ;********************************************************************
  15. ; Current Version of ACUSeeMe
  16. ;********************************************************************
  17. (set ACUSeeMeVer "1.50") 
  18.  
  19.  
  20. ;********************************************************************
  21. ; Info on ACUSeeMe and Installer Man
  22. ;********************************************************************
  23. (message "\n\nACUSeeMe V" ACUSeeMeVer "\n\n"
  24.          "Network video-conferencing tool\n\n"
  25.          "by\n\nBerend Ozceri\n(bo24@andrew.cmu.edu)\n\n"
  26.          "Original CUSeeMe © 1994, 1995 Cornell University\n"
  27.          "Amiga CUSeeMe © 1994, 1995 Berend Ozceri"
  28. )
  29.  
  30.  
  31. ;********************************************************************
  32. ; Ask where to put it
  33. ;********************************************************************
  34. (set InstallDir
  35.   (askdir 
  36.     (prompt "Please select where you wish to install\nACUSeeMe V"ACUSeeMeVer"\n"
  37.             "(The installer will create a drawer there.)")
  38.     (help   "Please select where you wish to install ACUSeeMe. A directory "
  39.             "called ACUSeeMe (and an icon for it) will be created in the "
  40.             "directory selected.")
  41.     (default "Work:")
  42.   )
  43. )
  44. (set InstallDir (tackon InstallDir "ACUSeeMe"))
  45. (makedir InstallDir)
  46. (set @default-dest InstallDir)
  47.  
  48.  
  49. ;********************************************************************
  50. ; Double Check on the CPU, to make sure
  51. ;********************************************************************
  52. (set cpu (database "cpu"))
  53. (if (= cpu 68000) (set #cpu 0))
  54. (if (= cpu 68010) (set #cpu 1))
  55. (if (= cpu 68020) (set #cpu 2))
  56. (if (= cpu 68030) (set #cpu 3))
  57. (if (= cpu 68040) (set #cpu 4))
  58.  
  59. (if (> (exists ("libs:68060.library")) 0) (set #cpu 5))
  60.  
  61. (set #cpu
  62.   (askchoice 
  63.     (choices "68000" "68010" "68020" "68030" "68040" "68060")
  64.       (prompt "Central Processing Unit Check")
  65.       (help   "The ACUSeeMe binary comes in two versions; one for Amigas with "
  66.             "68000 or 68010 CPUs and one for Amigas with 68020, 68030, 68040 "
  67.             "or 68060 CPUs. Please choose the CPU type of your Amiga. The "
  68.             "correct binary will then be installed.")
  69.     (default #cpu)
  70.     )
  71. )
  72.  
  73.  
  74. ;********************************************************************
  75. ; Check for old version
  76. ;********************************************************************
  77. (if (> (exists (cat InstallDir "ACUSeeMe")) 0)
  78.    (rename (cat InstallDir "ACUSeeMe") (cat InstallDir "ACUSeeMe_old")) 
  79. )
  80.  
  81. (if (> (exists (cat InstallDir "ACUSeeMe.info")) 0)
  82.    (rename (cat InstallDir "ACUSeeMe.info") (cat InstallDir "ACUSeeMe_old.info")) 
  83. )
  84.  
  85.  
  86. ;********************************************************************
  87. ; Copy Correct file 
  88. ;********************************************************************
  89. (if (< #cpu 2) (copyfiles (source "ACUSeeMe_000") (dest InstallDir) (newname "ACUSeeMe") (infos)))
  90. (if (> #cpu 1) (copyfiles (source "ACUSeeMe_020") (dest InstallDir) (newname "ACUSeeMe") (infos)))
  91.  
  92.  
  93.